www.gusucode.com > Neutrosophic logic toolbox Package_ Neutrosophic Matrices > Neutrosophic logic toolbox Package_ Neutrosophic Matrices/@sterm/mtimes.m

    function m = mtimes(v,w)
% function m = mtimes(v,w)
% multiplys two sterms 
%
%In the Name of ALLAH
% neutrosphic logic toolbox for computing single valued neutrosophic Matrice 
% Copyright (C) 2015-2019 Broumi said 
%for for details see the refrence:  
%Said Broumi, Le Hoang Son, Assia Bakali, Mohamed Talea, Florentin Smarandache,
%Ganeshsree Selvachandran, Computing Operational Matrices in Neutrosophic Environments:
%A Matlab Toolbox,Neutrosophic Sets and Systems, 18,2017,pp.58-66.
% neutrosphic logic toolbox for computing single valued neutrosophic Matrice comes 
% This is free software, and you are welcome to redistribut;see license.txt for details.




if isa(v,'sterm')     
    vt=sterm2terms(v);
elseif isa(v,'term')     
    vt=v;
else     
    vt=term(v);
end
vL=length(vt);

if isa(w,'sterm')
    wt=sterm2terms(w);
elseif isa(w,'term')
    wt=w;
else
    wt=temr(w);
end
wL=length(wt);

k=0;
m=term([0]);
for i=1:vL
    for j=1:wL
        k=k+1;
%         vt{i}
%         wt{j}
%         vt{i}*wt{j}
        m=m+(vt{i}*wt{j});
    end
end